home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / demorapa / demo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-10  |  9.3 KB  |  276 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   4020
  8.    ClientLeft      =   1095
  9.    ClientTop       =   1485
  10.    ClientWidth     =   4950
  11.    Height          =   4425
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4020
  15.    ScaleWidth      =   4950
  16.    Top             =   1140
  17.    Width           =   5070
  18.    Begin Timer Timer1 
  19.       Interval        =   200
  20.       Left            =   2160
  21.       Top             =   2880
  22.    End
  23.    Begin PictureBox Picture1 
  24.       AutoRedraw      =   -1  'True
  25.       BackColor       =   &H00800000&
  26.       BorderStyle     =   0  'None
  27.       Height          =   495
  28.       Left            =   120
  29.       ScaleHeight     =   495
  30.       ScaleWidth      =   1215
  31.       TabIndex        =   1
  32.       Top             =   120
  33.       Width           =   1215
  34.    End
  35.    Begin TextBox Text1 
  36.       BackColor       =   &H00C0C0C0&
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   12
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   495
  44.       Left            =   480
  45.       MultiLine       =   -1  'True
  46.       TabIndex        =   0
  47.       Text            =   "Text1"
  48.       Top             =   2640
  49.       Width           =   1215
  50.    End
  51.    Begin Image Image1 
  52.       Height          =   480
  53.       Index           =   6
  54.       Left            =   360
  55.       Picture         =   DEMO.FRX:0000
  56.       Top             =   1440
  57.       Width           =   480
  58.    End
  59.    Begin Image Image1 
  60.       Height          =   480
  61.       Index           =   9
  62.       Left            =   2160
  63.       Picture         =   DEMO.FRX:0302
  64.       Top             =   1440
  65.       Width           =   480
  66.    End
  67.    Begin Image Image1 
  68.       Height          =   480
  69.       Index           =   8
  70.       Left            =   1560
  71.       Picture         =   DEMO.FRX:0604
  72.       Top             =   1440
  73.       Width           =   480
  74.    End
  75.    Begin Image Image1 
  76.       Height          =   480
  77.       Index           =   7
  78.       Left            =   960
  79.       Picture         =   DEMO.FRX:0906
  80.       Top             =   1560
  81.       Width           =   480
  82.    End
  83.    Begin Image Image1 
  84.       Height          =   480
  85.       Index           =   10
  86.       Left            =   3000
  87.       Picture         =   DEMO.FRX:0C08
  88.       Top             =   1560
  89.       Width           =   480
  90.    End
  91.    Begin Image Image1 
  92.       Height          =   480
  93.       Index           =   5
  94.       Left            =   3720
  95.       Picture         =   DEMO.FRX:0F0A
  96.       Top             =   720
  97.       Width           =   480
  98.    End
  99.    Begin Image Image1 
  100.       Height          =   480
  101.       Index           =   4
  102.       Left            =   3120
  103.       Picture         =   DEMO.FRX:120C
  104.       Top             =   720
  105.       Width           =   480
  106.    End
  107.    Begin Image Image1 
  108.       Height          =   480
  109.       Index           =   1
  110.       Left            =   1080
  111.       Picture         =   DEMO.FRX:150E
  112.       Top             =   720
  113.       Width           =   480
  114.    End
  115.    Begin Image Image1 
  116.       Height          =   480
  117.       Index           =   2
  118.       Left            =   1680
  119.       Picture         =   DEMO.FRX:1810
  120.       Top             =   600
  121.       Width           =   480
  122.    End
  123.    Begin Image Image1 
  124.       Height          =   480
  125.       Index           =   3
  126.       Left            =   2280
  127.       Picture         =   DEMO.FRX:1B12
  128.       Top             =   600
  129.       Width           =   480
  130.    End
  131.    Begin Image Image1 
  132.       Height          =   480
  133.       Index           =   0
  134.       Left            =   480
  135.       Picture         =   DEMO.FRX:1E14
  136.       Top             =   600
  137.       Width           =   480
  138.    End
  139. Option Explicit
  140. Dim TabFolder As TabFolder3DType
  141. Dim SuperText As TextType
  142. '   3D Tab Folder example
  143. '   This is what it takes to create the tabs
  144. '   after you purchase the 3Control.bas module
  145. '   and simply add it to you project by selecting (File Add)
  146. '   Contact me to get the code which will make your programs
  147. '   look very NICE without lots of $$$
  148. '   Send check or money order for $39.99 plus tax if a FL resident To
  149. '   and you will recieive the source code to start using it and learnning it.
  150. '   Angel Rapallo
  151. '   300 NW 42 Ave #607
  152. '   Miami Fl 33126
  153. '   Phone 1-305-448-2362
  154. '   EMail - BASICMAN@AOL.COM
  155. Sub Form_Load ()
  156.     Width = Screen.Width
  157.     Height = Screen.Height
  158.     Top = 0
  159.     Left = 0
  160.     '   Make some nice looking 3D Text
  161.     Picture1.Left = 0
  162.     Picture1.Top = 0
  163.     Picture1.Width = Width
  164.     Picture1.Height = 1200
  165.     SuperText.Caption = "3D Tabs, Texts, ....."
  166.     SuperText.Left = 1000
  167.     SuperText.Top = 100
  168.     SuperText.FontSize = 50
  169.     SuperText.FontItalic = True
  170.     SuperText.FontBold = True
  171.     SuperText.FontName = "times new roman"
  172.     SuperText.ForeColor = SolidColor(SOLID_YELLOW)
  173.     SuperText.BackColor = Picture1.BackColor
  174.     SuperText.XDirection = TEXT_LEFT
  175.     SuperText.YDirection = TEXT_DOWN
  176.     BoxPrint3D Picture1, SuperText
  177.     SuperText.Caption = "See (demo.frm) Code"
  178.     SuperText.Left = 500
  179.     SuperText.Top = 1200
  180.     SuperText.ForeColor = SolidColor(SOLID_PURPLE)
  181.     FormPrint3D Form1, SuperText
  182.     '   Make the Tabs Easy, Fast and nice
  183.     '   Just fill up the properties like in
  184.     '   VB objects
  185.     '   Register the images in the TabImageBank
  186.     '   all images for these folder will be in
  187.     '   TabImageBank(1, )
  188.     TabFolder.AbleImages = 1
  189.     Set TabImageBank(1, 1) = Image1(0)
  190.     Set TabImageBank(1, 2) = Image1(1)
  191.     Set TabImageBank(1, 3) = Image1(2)
  192.     Set TabImageBank(1, 4) = Image1(3)
  193.     Set TabImageBank(1, 5) = Image1(4)
  194.     Set TabImageBank(1, 6) = Image1(5)
  195.     Set TabImageBank(1, 7) = Image1(6)
  196.     Set TabImageBank(1, 8) = Image1(7)
  197.     Set TabImageBank(1, 9) = Image1(8)
  198.     Set TabImageBank(1, 10) = Image1(9)
  199.     Set TabImageBank(1, 11) = Image1(10)
  200.     '   Set the colors
  201.     TabFolder.ForeColor = 0
  202.     TabFolder.BackColor = BackColor
  203.     '   Set the dimensions
  204.     TabFolder.Left = 500
  205.     TabFolder.Top = 2400
  206.     TabFolder.Height = 3000
  207.     TabFolder.AutoSize = True
  208.     TabFolder.Size = 11
  209.     '   Set the caption for each tab
  210.     TabFolder.Tabs(1).Caption = "Canada"
  211.     TabFolder.Tabs(2).Caption = "France"
  212.     TabFolder.Tabs(3).Caption = "Germany"
  213.     TabFolder.Tabs(4).Caption = "Italy"
  214.     TabFolder.Tabs(5).Caption = "Japan"
  215.     TabFolder.Tabs(6).Caption = "Sixth"
  216.     TabFolder.Tabs(7).Caption = "First"
  217.     TabFolder.Tabs(8).Caption = "Second"
  218.     TabFolder.Tabs(9).Caption = "Third"
  219.     TabFolder.Tabs(10).Caption = "Fourth"
  220.     TabFolder.Tabs(11).Caption = "Fith"
  221.     TopTabFolder3DSetUp Form1, TabFolder
  222.     AutoRedraw = True
  223.     '   Nice Ouline Text
  224.     SuperText.FontName = "script"
  225.     SuperText.Left = 500
  226.     SuperText.Top = 6300
  227.     SuperText.FontSize = 25
  228.     SuperText.Caption = "3Control is (c) Angel Rapallo 1994,1995 A.R.R.A Software"
  229.     SuperText.OutlineColor = SolidColor(SOLID_BLACK)
  230.     SuperText.State = TEXT_BOLD
  231.     SuperText.ForeColor = SolidColor(SOLID_WHITE)
  232.     FormPrintOutLine Form1, SuperText
  233.     '   3D Control
  234.     Text1.Width = 3 * TabFolder.Width / 4
  235.     Text1.Height = 3 * (TabFolder.Height - TAB_HEIGHT) / 4
  236.     Text1.Top = TabFolder.Top + TAB_HEIGHT + TabFolder.Height / 8
  237.     Text1.Left = TabFolder.Left + TAB_WIDTH + TabFolder.Width / 16
  238.     Text1.Text = "Make your programs look better using VB Code Not VBX, DLL and spending lots of dollars ( how much would you pay for a VBX to do all this plus more like Right Tabs Emboss Text..? Read the information in Demo.Frm or call 1-305-443-0598 to order"
  239.     Control3D Text1, INNER, BackColor
  240.     '   Emboss Text
  241.     SuperText.FontName = "times new roman"
  242.     SuperText.FontSize = 30
  243.     SuperText.Left = 3000
  244.     SuperText.Top = 5300
  245.     SuperText.BackColor = BackColor
  246.     SuperText.ForeColor = BackColor
  247.     SuperText.Caption = "Emboss Text Too!"
  248.     FormPrintSculpt Form1, SuperText
  249. End Sub
  250. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  251.     '   Catch the Tab being hillighted
  252.     TopTabFolder3DHilight Form1, TabFolder, X, Y
  253. End Sub
  254. Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  255.     '   Catch the Tab Being selected
  256.     TopTabFolder3DSelect Form1, TabFolder, X, Y
  257. End Sub
  258. Sub Image1_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  259.     '    Catch the tab being hilighted
  260.     TopTabFolder3DHilight Form1, TabFolder, Image1(Index).Left + X, Image1(Index).Top + Y
  261. End Sub
  262. Sub Image1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  263.     '   Catch the tab being selected
  264.     TopTabFolder3DSelect Form1, TabFolder, Image1(Index).Left + X, Image1(Index).Top + Y
  265. End Sub
  266. Sub Timer1_Timer ()
  267.     Static I As Integer
  268.     Static M As String
  269.     I = I + 1
  270.     If (I > Len(M)) Then
  271.         I = 0
  272.     End If
  273.     M = "Get it now and make your APP look Better  with less $$$.........."
  274.     Form1.Caption = Left$(M, I)
  275. End Sub
  276.